home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Docs / Tutorials / Speak.gc < prev    next >
Text File  |  1999-04-21  |  764b  |  45 lines
  1. G4C
  2.  
  3. WINBIG 210 50 371 120 'Type something & click Speak!'
  4. WinType 11110001
  5. box 0 0 0 0 out button
  6.  
  7. xOnLoad
  8.     ; set default values
  9.     setgadvalues #this
  10.     guiopen #this
  11.  
  12. xOnClose
  13.     GuiQuit #This
  14.  
  15. CTEXT 14 6 "Enter text to speak" #screen 8 2 0 0001
  16.  
  17. XTEXTIN 12 17 348 16 "" text "" 200
  18.  
  19. XHSLIDER 78 36 237 13 "Rate" rate 40 400 150 "%ld"
  20.  
  21. XHSLIDER 78 51 237 13 "Pitch" pitch 65 320 110 "%ld"
  22.  
  23. XHSLIDER 78 66 237 13 "Volume" volume 0 64 64 "%ld"
  24.  
  25. XHSLIDER 78 81 237 13 "Freq" freq 5000 28000 22200 "%ld"
  26.  
  27. XCYCLER 15 99 110 15 "" mode
  28.     CSTR Natural 0
  29.     CSTR Robotic 1
  30.     CSTR Manual  2
  31.  
  32. XCYCLER 135 99 110 15 "" sex
  33.     CSTR Male   0
  34.     CSTR Female 1
  35.  
  36.  
  37. XBUTTON 267 99 80 15 "Speak!"
  38.     Set Speak $rate\/$pitch\/$sex\/$mode\/$volume\/$freq
  39.     if '$text' > ''
  40.         speak '$text'
  41.     endif
  42.  
  43.  
  44.  
  45.